home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Contributed Scores / Mark Polishook / Herrick.4th.part < prev    next >
Lisp/Scheme  |  1998-10-26  |  3KB  |  99 lines
  1. (setq patrh '(d e f  g h i  j k l  m n o  p = =  = = =  = = =  = = =))
  2. (setq patvcl (append (symbol-trim 15 (symbol-transpose -5 patrh)) '(f e d  c b a  -b -c -e)))
  3. (setq expand (filter-lowcut '-f (symbol-trim 96 (gen-expansion 3 '(a b) 
  4.              (filter-delete '= patvcl)))))
  5. (setq expand-invert (filter-lowcut '-b (symbol-inversion 'b (symbol-trim 84 (gen-expansion 3 '(a b) 
  6.              (filter-delete '= (reverse patvcl)))))))
  7.  
  8. (init-soup 'soup1 expand 0.565555437463569)
  9. (setq expand-var (gen-catalyze 'soup1 0.3602176894711318))   
  10. (init-soup 'soup2 expand-invert 0.09572122792455945)
  11. (setq expand-var2 (gen-catalyze 'soup2 0.36634344662990354))
  12. (init-soup 'soup3 (append expand expand-invert) 0.4757426195729517)
  13. (setq expand-append (symbol-transpose 7 (gen-catalyze 'soup3 0.22113086488766837)))
  14. (setq expand-append2 (gen-catalyze-variate '(transpose) 0.12039830682562934))
  15. ;  (gen-noise-brownian 3 0.41235 0.1)  ;  generate 7 vectors for soup seeds
  16.  
  17. (setq expand-var-scale (symbol-scale '(-f m) expand-var))
  18. (setq expand-var2-scale (symbol-scale '(-b p) expand-var2))
  19. (setq expand-append-scale (symbol-scale '(-b x) expand-append))
  20. (setq expand-append2-scale (symbol-scale '(-g q) expand-append2))
  21.  
  22. (setq expand-var-scale2 (symbol-scroll -12 (symbol-scale '(-f t) expand-var)))
  23. (setq expand-var2-scale2 (symbol-scroll -17 (symbol-scale '(-b w) expand-var2)))
  24. (setq expand-append-scale2 (symbol-scale '(-b _) expand-append))
  25. (setq expand-append2-scale2 (symbol-scale '(-g x) expand-append2))        
  26.  
  27. (setq  patlh '(e f e  f e f))
  28. (setq vel1 '(60 24 24)) 
  29. ; = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  30.  
  31. (def-symbol
  32.   vln (list '(c) '(c) expand-append expand-append-scale expand-append-scale2) 
  33.   vcl (list '(=) patvcl '(c) expand expand-var expand-var-scale expand-var-scale2)
  34.   rh (list '(=) patrh '(=) expand-invert expand-var2 expand-var2-scale expand-var2-scale2)
  35.   lh (list patlh patlh patlh patlh patlh patlh patlh expand-append2 expand-append2-scale expand-append2-scale2)      
  36.   lh.b  '((=) (a c = a -b) (=) (a-h -d -f = a-h -d -f -c-j = -c-j =) (= -b-i a-h =)) 
  37. )
  38.  
  39. (def-length
  40.   vln '(1/4-3)
  41.   vcl '(1/4-3)
  42.   rh '(1/4-3)
  43.   lh '(1/4-3)
  44.   lh.b '((-1/1) (1/2 1/2 1/1 1/2 1/2) (-3/4) (1/2 1/4 3/4 1/2 1/2 1/4 1/4 1/2 1/2 1/2 1/2) (5/4 3/8 1/4 1/8))  
  45. )
  46.  
  47. (def-zone
  48.   vln '(32/1 -2/1 18/1 10/1 8/1)  
  49.   vcl '(-63/4 8/1 -1/4 8/1 20/1 10/1 8/1) 
  50.   rh '(-63/4 8/1 -5/4 7/1 20/1 10/1 8/1) 
  51.   lh '(-1/1 9/1 -3/4 5/1 8/1 33/4 -4/1 16/1 10/1 8/1)   
  52.   lh.b '(-1/1 9/1 -3/4 5/1 8/1)   
  53. )
  54.                  
  55. (def-velocity 
  56.   vln (list vel1 '(48) '(72) '(72) '(72))
  57.   vcl '((48) (48) (48) (48) (62) (62) (62))
  58.   rh '((48) (48) (48) (48) (62) (62) (62))
  59.   lh '((24) (24) (24) (24) (24) (24) (24) (60) (60) (60))
  60.   lh.b '(48)
  61. )
  62.  
  63. (def-tonality 
  64.   vln (activate-tonality (melodic-minor a 5))
  65.   vcl (activate-tonality (melodic-minor a 4)) 
  66.   rh (activate-tonality (melodic-minor a 5)) 
  67.   lh (activate-tonality '((melodic-minor a 4) (melodic-minor a 4) (melodic-minor a 4) (melodic-minor a 4) 
  68.                           (melodic-minor a 4) (melodic-minor a 4) (melodic-minor a 4) (melodic-minor a 3) 
  69.                           (melodic-minor a 3) (melodic-minor a 3)))
  70.   lh.b (activate-tonality (melodic-minor a 4))
  71. )
  72.  
  73. (def-tempo 128)
  74.  
  75. (compile-instrument-p "ccl;output:" "herrick.4th.part"
  76.   vln
  77.   vcl
  78.   rh
  79.   lh
  80.   lh.b
  81. )
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.